From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 27 Mar 1993 18:01:28 +0000 (+0000)
Subject: (try-face-font, find-face, get-face): New aliases.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96672
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e15765f5e2b9286dd02d47acde2a383a4ee6c25a;p=emacs.git

(try-face-font, find-face, get-face): New aliases.
---

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 9e61577c970..d1b541d34b9 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -98,6 +98,10 @@ bottom of the buffer stack."
   (switch-to-buffer
    (if (<= arg 1) (other-buffer (current-buffer))
      (nth (1+ arg) (buffer-list)))))
+
+(fset 'find-face 'internal-find-face)
+(fset 'get-face 'internal-get-face)
+(fset 'try-face-font 'internal-try-face-font)
 
 ;; Support the Lucid names with `screen' instead of `frame'.